home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / palocx / form1.frm next >
Text File  |  1999-04-19  |  4KB  |  125 lines
  1. VERSION 5.00
  2. Object = "{BF7DCA08-CB0C-11D2-A538-C6EE5E2FEBB8}#2.0#0"; "NPPal.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Color Palette - Exemple"
  5.    ClientHeight    =   3015
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3015
  11.    ScaleWidth      =   4680
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin PalOcx.NPPal NPPal1 
  14.       Align           =   2  'Align Bottom
  15.       Height          =   765
  16.       Left            =   0
  17.       TabIndex        =   0
  18.       Top             =   2250
  19.       Width           =   4680
  20.       _ExtentX        =   8255
  21.       _ExtentY        =   1349
  22.       GridColor       =   -2147483633
  23.       Valeur_RGB      =   ""
  24.       Valeur_HEXA     =   ""
  25.       Border_Style    =   2
  26.       Max             =   -1
  27.       LargeChange     =   1
  28.    End
  29.    Begin VB.Frame Frame1 
  30.       Caption         =   "Informations:"
  31.       Height          =   2175
  32.       Left            =   120
  33.       TabIndex        =   1
  34.       Top             =   0
  35.       Width           =   4455
  36.       Begin VB.CheckBox Check1 
  37.          Caption         =   "Afficher Tooltip"
  38.          Height          =   255
  39.          Left            =   120
  40.          TabIndex        =   8
  41.          Top             =   1800
  42.          Width           =   1935
  43.       End
  44.       Begin VB.TextBox Text1 
  45.          Height          =   285
  46.          Index           =   2
  47.          Left            =   1200
  48.          TabIndex        =   7
  49.          Top             =   1200
  50.          Width           =   1935
  51.       End
  52.       Begin VB.TextBox Text1 
  53.          Height          =   285
  54.          Index           =   1
  55.          Left            =   2280
  56.          TabIndex        =   6
  57.          Top             =   480
  58.          Width           =   1935
  59.       End
  60.       Begin VB.TextBox Text1 
  61.          Height          =   285
  62.          Index           =   0
  63.          Left            =   240
  64.          TabIndex        =   5
  65.          Top             =   480
  66.          Width           =   1935
  67.       End
  68.       Begin VB.Label Label3 
  69.          Alignment       =   2  'Center
  70.          Caption         =   "Valeur Index:"
  71.          Height          =   255
  72.          Left            =   1200
  73.          TabIndex        =   4
  74.          Top             =   960
  75.          Width           =   1935
  76.       End
  77.       Begin VB.Label Label2 
  78.          Alignment       =   2  'Center
  79.          Caption         =   "Valeur RGB:"
  80.          Height          =   255
  81.          Left            =   2280
  82.          TabIndex        =   3
  83.          Top             =   240
  84.          Width           =   1935
  85.       End
  86.       Begin VB.Label Label1 
  87.          Alignment       =   2  'Center
  88.          Caption         =   "Valeur Hexa:"
  89.          Height          =   255
  90.          Left            =   240
  91.          TabIndex        =   2
  92.          Top             =   240
  93.          Width           =   1935
  94.       End
  95.    End
  96. End
  97. Attribute VB_Name = "Form1"
  98. Attribute VB_GlobalNameSpace = False
  99. Attribute VB_Creatable = False
  100. Attribute VB_PredeclaredId = True
  101. Attribute VB_Exposed = False
  102. Private Sub Check1_Click()
  103. If Check1.Value = 1 Then
  104. NPPal1.Tooltip = True
  105. Else
  106. NPPal1.Tooltip = False
  107. End If
  108. End Sub
  109.  
  110. Private Sub Form_Load()
  111. If Right(App.Path, 1) <> "\" Then
  112. NPPal1.Palette = App.Path & "\Soleil.pal"
  113. Else
  114. NPPal1.Palette = App.Path & "Soleil.pal"
  115. End If
  116. End Sub
  117.  
  118.  
  119. Private Sub NPPal1_Click()
  120. Text1(0).Text = NPPal1.Valeur_HEXA
  121. Text1(1).Text = NPPal1.Valeur_RGB
  122. Text1(2).Text = NPPal1.Valeur_INDEX
  123. End Sub
  124.  
  125.